perm filename TEST1.SAI[1,BGB]2 blob sn#094573 filedate 1974-04-04 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"

	DEFINE α="COMMENT";
	DEFINE π="3.1415927";

	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;

	INTEGER B1,B2,F,E,V,V0,T;
	INTEGER WORLD,WINDOW,CAMERA;

	MKUNIV;
	B1 ← MKCUBE(4.0,1.0,2.0);
	B2 ← MKCUBE(4.0,1.0,2.0);
	TRANSLATE(B1,0,0,7);
	GEODPY;INCHRW;

WHILE TRUE DO 
BEGIN
	ROTATE(B1,π/30,π/32,0);
	ROTATE(B2,π/35,-π/40,0);
	SHOW2(0,1);
END;
END "TEST1"; BGB 19 MARCH 1973.